home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Grafik / AmiCAD / ARexx_english / Cartouche.amiCAD < prev    next >
Text File  |  1998-06-17  |  3KB  |  151 lines
  1. /* This ARexx script creates a cartouche in the current AmiCAD window */
  2. /* Version 1.04e, 24 mai 1998 © R.Florac */
  3.  
  4. options results
  5.  
  6. organisation="ORGANISATION NAME"
  7. signal on error
  8. signal on syntax
  9.  
  10. IF (~show('L','rexxlocaldates.library')) THEN
  11.   call addlib('rexxlocaldates.library',0,-30,0)
  12.  
  13. if (show('L','rexxlocaldates.library')) then do
  14.     Ib = OpenLocale()
  15.     jour = FormatDate(Ib, ,"%A %e %B %Y")
  16. end
  17. else do
  18.     'DATE(1)'; jour=result
  19. end
  20.  
  21. 'WWIDTH(-1)'; l = result; lc = result % 3
  22. 'WHEIGHT(-1)'; h =result
  23. 'ROTATE(0,0):SYMMETRY(0,0)'
  24.  
  25. 'SELECT("Cartouche place"+CHR(10)+"Top left"+CHR(10)+"Top right"+CHR(10)+"Top center"+CHR(10)+"Bottom center"+CHR(10)+"Bottom right"+CHR(10)+"Bottom left")'
  26. c = result
  27.  
  28. 'ASK("Title of the cartouche")'; titre = result
  29. if titre='' then exit
  30.  
  31. if lc<260 then lc=260
  32. 'TXWIDTH("'organisation'")'; lt = result
  33. if lt>lc-10 then lc=lt+10
  34. 'TXWIDTH("'titre'")'; lt = result
  35. if lt>lc-10 then lc=lt+10
  36. dx=(lc+5)%4*3
  37. 'TXWIDTH("'jour'")'; lt = result
  38. if lt>dx-10 then do
  39.     dx=lt+10
  40.     lc=dx%3*4
  41. end
  42.  
  43. select
  44.     when c = 1 then do        /* En haut à gauche */
  45.     x0 = 5
  46.     x1 = lc + 5
  47.     y0 = 5
  48.     y1 = 85
  49.     bh = 0
  50.     bb = 1
  51.     bg = 0
  52.     bd = 1
  53.     end
  54.     when c = 2 then do        /* En haut à droite */
  55.     x0 = l - lc - 5
  56.     x1 = l - 5
  57.     y0 = 5
  58.     y1 = 85
  59.     bh = 0
  60.     bb = 1
  61.     bg = 1
  62.     bd = 0
  63.     end
  64.     when c = 3 then do        /* En haut au centre */
  65.     x0 = l % 2 - lc % 2
  66.     x1 = x0 + lc
  67.     y0 = 5
  68.     y1 = 85
  69.     bh = 0
  70.     bb = 1
  71.     bg = 1
  72.     bd = 1
  73.     end
  74.     when c = 4 then do        /* En bas au centre */
  75.     x0 = l % 2 - lc % 2
  76.     x1 = x0 + lc
  77.     y0 = h - 85
  78.     y1 = h - 5
  79.     bh = 1
  80.     bb = 0
  81.     bg = 1
  82.     bd = 1
  83.     end
  84.     when c = 6 then do        /* En bas à gauche */
  85.     x0 = 5
  86.     x1 = 5 + lc
  87.     y0 = h - 85
  88.     y1 = h - 5
  89.     bh = 1
  90.     bb = 0
  91.     bg = 0
  92.     bd = 1
  93.     end
  94.     when c = 5 then do        /* En bas à droite */
  95.     x0 = l - lc - 5
  96.     x1 = l - 5
  97.     y0 = h - 85
  98.     y1 = h - 5
  99.     bh = 1
  100.     bb = 0
  101.     bg = 1
  102.     bd = 0
  103.     end
  104.     otherwise exit
  105. end
  106.  
  107. /* dessin du contour */
  108. 'DRAWMODE(2):DRAW(5,5,'l-5',5):DRAW('l-5',5,'l-5','h-5')'
  109. 'DRAW('l-5','h-5',5,'h-5'):DRAW(5,'h-5',5,5)'
  110.  
  111. /* Tracé du bord horizontal haut */
  112. if bh > 0 then 'DRAW('x0','y0','x1','y0')'
  113. /* Tracé du bord horizontal bas */
  114. if bb > 0 then 'DRAW('x0','y1','x1','y1')'
  115. /* Tracé du bord vertical gauche */
  116. if bg > 0 then 'DRAW('x0','y0','x0','y1')'
  117. /* Tracé du bord vertical droit */
  118. if bd > 0 then 'DRAW('x1','y0','x1','y1')'
  119. /* Tracé des lignes horizontales intermédiaires */
  120. 'DRAW('x0','y0+20','x1','y0+20')'
  121. 'DRAWMODE(1):DRAW('x0','y0+40','x1','y0+40'):DRAW('x0','y0+60','x1','y0+60')'
  122. /* Tracé de la ligne verticale intermédiaire */
  123. 'DRAW('dx+x0','y0+40','dx+x0','y1')'
  124.  
  125. 'SETSCALE(0,1,1)'
  126. call centrer_texte(organisation,x0,x1,y0+15)
  127. call centrer_texte(titre,x0,x1,y0+35)
  128. call centrer_texte(jour,x0,x0+dx,y0+75)
  129. call centrer_texte("Document Number 1/1",x0,x0+dx,y0+55)
  130. call centrer_texte("REV 1",x0+dx,x1,y0+55)
  131. call centrer_texte("AmiCAD",x0+dx,x1,y0+75)
  132.  
  133. exit
  134.  
  135. centrer_texte: procedure
  136.     parse arg texte, xg, xd, y
  137.     'TXWIDTH("'texte'")'; l = result
  138.     l = (xd-xg-l)%2
  139.     'WRITE("'texte'",'xg+l','y')'
  140.     return
  141.  
  142. /* Traitement des erreurs, interruption du programme */
  143. syntax:
  144. erreur=RC
  145. 'MESSAGE("Script Cartouche.AmiCAD:"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  146. exit
  147.  
  148. error:
  149. 'MESSAGE("Script Cartouche.AmiCAD:"+CHR(10)+"Error in line 'SIGL'")'
  150. exit
  151.